home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 November / 64er_Magazin_84-11_1984_Markt__Technik_de.d64 / exsort data (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  6.5 KB  |  119 lines
  1. 0 rem *********************************
  2. 1 rem **maschinencode sortierroutine **
  3. 2 rem **                             **
  4. 3 rem **     von marcus rickert      **
  5. 4 rem *********************************
  6. 100 data169,3,141,8,3,169,193,141,9,3,96,160,1,177,122,1395
  7. 110 data201,83,240,3,76,228,167,200,177,122,201,69,208,3,76,2054
  8. 120 data218,197,201,79,208,239,32,115,0,32,115,0,32,115,0,1583
  9. 130 data32,253,174,32,236,196,32,36,195,76,88,193,32,253,174,2002
  10. 140 data32,138,173,32,247,183,165,20,141,0,192,165,21,141,1,1651
  11. 150 data192,32,253,174,32,138,173,32,247,183,165,20,141,2,192,1976
  12. 160 data165,21,141,3,192,96,32,49,193,32,253,174,32,158,183,1724
  13. 170 data142,4,192,224,2,144,7,162,120,160,197,76,250,196,32,1908
  14. 180 data199,195,142,6,192,140,7,192,141,8,192,160,0,177,122,1873
  15. 190 data240,4,201,58,208,8,169,0,141,11,192,76,162,193,32,1695
  16. 200 data253,174,32,236,196,32,36,195,32,199,195,142,9,192,140,2063
  17. 210 data10,192,141,11,192,169,0,141,5,192,160,0,32,60,197,1502
  18. 220 data160,2,32,60,197,169,0,141,246,192,141,247,192,160,18,1957
  19. 230 data32,80,197,144,3,76,174,167,160,16,32,80,197,162,16,1536
  20. 240 data160,18,32,42,197,142,20,192,140,21,192,162,20,160,246,1744
  21. 250 data32,154,196,240,219,48,217,173,16,192,141,12,192,173,17,2022
  22. 260 data192,141,13,192,173,18,192,141,14,192,173,19,192,141,15,1808
  23. 270 data192,32,239,195,160,6,174,8,192,232,138,162,12,32,1,1775
  24. 280 data197,32,47,196,240,23,72,173,4,192,208,6,104,16,14,1524
  25. 290 data76,27,194,104,48,8,162,12,32,227,196,76,251,193,160,1766
  26. 300 data6,174,8,192,232,138,162,14,32,1,197,32,47,196,240,1671
  27. 310 data23,72,173,4,192,208,6,104,48,14,76,67,194,104,16,1301
  28. 320 data8,162,14,32,209,196,76,35,194,162,12,160,14,32,154,1460
  29. 330 data196,240,2,16,103,160,6,174,8,192,232,138,162,12,32,1673
  30. 340 data1,197,134,251,132,252,160,6,174,8,192,232,138,162,14,2053
  31. 350 data32,1,197,134,253,132,254,172,8,192,32,105,197,173,11,1893
  32. 360 data192,240,38,160,9,174,11,192,232,138,162,12,32,1,197,1790
  33. 370 data134,251,132,252,160,9,174,11,192,232,138,162,14,32,1,1894
  34. 380 data197,134,253,132,254,172,11,192,32,105,197,162,12,32,227,2112
  35. 390 data196,162,14,32,209,196,162,14,160,12,32,154,196,48,3,1590
  36. 400 data76,251,193,162,14,160,16,32,42,197,142,20,192,140,21,1658
  37. 410 data192,162,18,160,12,32,42,197,142,22,192,140,23,192,162,1688
  38. 420 data20,160,22,32,154,196,16,34,162,12,160,18,32,154,196,1368
  39. 430 data16,10,160,12,32,60,197,160,18,32,60,197,173,14,192,1333
  40. 440 data141,18,192,173,15,192,141,19,192,76,200,193,162,16,160,1890
  41. 450 data14,32,154,196,16,10,160,16,32,60,197,160,14,32,60,1153
  42. 460 data197,173,12,192,141,16,192,173,13,192,141,17,192,76,200,1927
  43. 470 data193,169,4,141,20,192,162,0,134,3,134,4,32,115,0,1303
  44. 480 data240,63,201,58,240,59,201,36,240,20,201,37,240,24,201,2061
  45. 490 data44,240,47,21,3,149,3,224,2,240,32,232,76,47,195,1555
  46. 500 data169,2,141,20,192,76,99,195,169,1,141,20,192,165,3,1585
  47. 510 data9,128,133,3,165,4,9,128,133,4,76,47,195,162,158,1354
  48. 520 data160,197,76,250,196,165,47,133,251,165,48,133,252,76,164,2313
  49. 530 data195,160,0,177,251,197,3,208,10,200,177,251,197,4,208,2238
  50. 540 data3,76,183,195,160,2,24,165,251,113,251,170,8,200,40,1841
  51. 550 data165,252,113,251,133,252,138,133,251,165,251,197,49,208,212,2770
  52. 560 data165,252,197,50,208,206,162,143,160,197,76,250,196,160,4,2426
  53. 570 data177,251,201,1,208,1,96,162,185,160,197,76,250,196,24,2185
  54. 580 data160,6,177,251,237,2,192,8,136,177,251,40,237,3,192,2069
  55. 590 data176,7,162,0,169,18,76,59,164,24,165,251,105,7,170,1553
  56. 600 data165,252,105,0,168,173,20,192,96,24,173,16,192,109,18,1703
  57. 610 data192,170,173,17,192,109,19,192,74,141,21,192,138,106,141,1877
  58. 620 data20,192,174,8,192,232,138,160,6,162,20,32,1,197,134,1668
  59. 630 data40,132,41,173,8,192,201,4,208,4,138,76,162,187,174,1740
  60. 640 data8,192,138,168,177,40,149,97,202,136,16,248,96,134,40,1841
  61. 650 data132,41,173,8,192,201,2,240,9,201,1,240,65,138,32,1675
  62. 660 data91,188,96,160,1,177,40,133,3,200,177,40,133,4,160,1603
  63. 670 data0,76,98,196,177,3,209,98,240,8,176,3,169,1,96,1550
  64. 680 data169,255,96,200,152,160,0,209,40,240,8,197,97,240,4,2067
  65. 690 data168,76,83,196,177,40,197,97,240,5,176,229,76,91,196,2047
  66. 700 data169,0,96,165,97,141,21,192,165,98,141,20,192,160,0,1657
  67. 710 data177,40,141,23,192,200,177,40,141,22,192,162,20,160,22,1709
  68. 720 data189,0,192,217,0,192,208,11,189,1,192,217,1,192,208,2009
  69. 730 data3,76,124,196,189,1,192,48,23,185,1,192,48,164,56,1498
  70. 740 data189,0,192,249,0,192,189,1,192,249,1,192,144,152,76,2018
  71. 750 data91,196,185,1,192,16,144,76,183,196,56,189,0,192,233,1950
  72. 760 data1,157,0,192,189,1,192,233,0,157,1,192,96,254,0,1665
  73. 770 data192,208,3,254,1,192,96,165,122,56,233,1,133,122,165,1943
  74. 780 data123,233,0,133,123,96,134,34,132,35,76,71,164,133,40,1527
  75. 790 data189,0,192,133,113,189,1,192,133,114,169,0,133,41,152,1751
  76. 800 data72,32,87,179,134,40,132,41,104,168,24,165,40,121,0,1339
  77. 810 data192,170,165,41,121,1,192,168,96,56,185,0,192,253,0,1832
  78. 820 data192,72,185,1,192,253,1,192,168,104,170,96,174,5,192,1997
  79. 830 data185,0,192,157,25,192,185,1,192,157,136,192,232,142,5,1993
  80. 840 data192,96,174,5,192,202,16,2,56,96,189,25,192,153,0,1590
  81. 850 data192,189,136,192,153,1,192,142,5,192,24,96,177,251,170,2112
  82. 860 data177,253,145,251,138,145,253,136,16,243,96,255,87,82,79,2356
  83. 870 data78,71,32,83,79,82,84,73,78,71,32,68,73,82,69,1055
  84. 880 data67,84,73,79,206,65,82,82,65,89,32,78,79,84,32,1197
  85. 890 data70,79,85,78,196,87,82,79,78,71,32,65,82,82,65,1231
  86. 900 data89,32,78,65,77,197,87,82,79,78,71,32,73,78,68,1186
  87. 910 data69,216,79,78,76,89,32,79,78,69,32,68,73,77,69,1184
  88. 920 data78,83,73,79,78,32,65,82,82,65,217,0,255,0,255,1444
  89. 930 data0,255,32,255,0,32,115,0,32,115,0,32,115,0,32,1015
  90. 940 data253,174,32,236,196,32,36,195,32,49,193,32,199,195,142,1996
  91. 950 data6,192,140,7,192,141,8,192,32,253,174,32,158,173,162,1862
  92. 960 data2,160,0,32,154,196,16,7,162,174,160,197,76,250,196,1782
  93. 970 data173,8,192,201,2,240,20,32,141,173,173,8,192,201,4,1760
  94. 980 data240,23,32,170,177,133,97,132,98,76,57,198,32,163,182,1810
  95. 990 data133,97,165,34,133,98,165,35,133,99,174,8,192,232,138,1836
  96. 1000 data160,6,162,0,32,1,197,142,9,192,140,10,192,174,9,1426
  97. 1010 data192,172,10,192,32,47,196,240,42,162,0,160,2,32,154,1633
  98. 1020 data196,240,26,162,0,32,227,196,56,173,9,192,109,8,192,1818
  99. 1030 data141,9,192,173,10,192,105,0,141,10,192,76,75,198,169,1683
  100. 1040 data255,160,255,76,134,198,173,1,192,172,0,192,32,145,179,2164
  101. 1050 data169,0,133,13,133,14,169,73,133,69,169,78,133,70,32,1388
  102. 1060 data231,176,166,71,164,72,32,212,187,76,174,167,255,0,255,2238
  103. 1100 zn=100:z=49400:restore:rem ** einlesen der werte **
  104. 1110 pr=0
  105. 1120 fors=0to14:readx:pr=pr+x:pokez+s,x:nexts
  106. 1130 readx:ifx=prthen1150
  107. 1140 printchr$(14)"[208]ruefsummen-[198]ehler in [218]eile";zn:end
  108. 1150 zn=zn+10:z=z+15
  109. 1160 ifz<>50855then1110
  110. 1170 print"fertig"
  111. 1180 input"cassette(1) oder diskette(8)";pn
  112. 1190 poke251,pn:rem ** abspeichern als absolutprogramm **
  113. 1200 poke252,peek(45):poke253,peek(46)
  114. 1210 poke43,248:poke44,192
  115. 1220 poke45,172:poke46,198
  116. 1230 ifpeek(251)=1thensave"exsort",1,2
  117. 1240 ifpeek(251)<>1thensave"@:exsort",peek(251)
  118. 1250 poke43,1:poke44,8:poke45,peek(252):poke46,peek(253)
  119.